5 IF A=0 THEN GOSUB 12000
6 IF A=0 THEN A=1:LD$="LPTR RTN":GOTO 12400
10 PRINT"[145]"
30 NC=0:N=0:NA=6:DIMAR$(NA)
40 DIM AF$(50),A$(NA,400)
50 SP$="":FORI=1TO20:SP$=SP$+" ":NEXT
60 CL$="":FORI=1TO15:CL$=CL$+"[157]":NEXT
80 FORI=1TONA:READAR$(I):NEXT
90 DATA "[205]AGAZINE: "," [193]RTICLE: ","  [193]UTHOR: ","   [201]SSUE: ","    [208]AGE: "
100 DATA "   [201]NDEX: "
105 FORI=49152TO49322:READA:POKEI,A:NEXT
115 FORII=49362TO49398:READAA:POKEII,AA:NEXT:REM**INSTALL READER
120 PRINT CHR$(14):POKE646,1
125 GOSUB 2750
130 PRINT"[147][201]NDEX [205]ENU:                             "
140 PRINTTAB(10)"[1] [204]OAD [201]NDEX [198]ILE
150 [153][163]10)"[2] (null)AVE RIGHT$NDEX ASCILE
160 PRINTTAB(10)"[3] [193]DD [201]NDEX [195]ATAGORY
170 [153][163]10)"[4] LENHANGE RIGHT$NDEX (null)AMES
180 PRINTTAB(10)"[5] [196]ISPLAY [201]NDEX [206]AMES
190 [153][163]10)"[6] (null)RINT RIGHT$NDEX (null)AMES
200 PRINTTAB(10)"[7] [199]O TO [205]AIN [205]ENU
205 [153][163]10)"[8] (null)ETURN TO (null)P(null)IME"
207 [153][163]10)"[9] RIGHT$NSTRUCTIONS"
210 [153]"LENHOICE: ";
220 MX[178]1:[141] 12500
230 K[178][197](TE$):[139] K[179]1 [176] K[177]9 [167] 130
236 [153]""
260 [145] K [141] 290,400,530,640,780,880,980,12100,10000
270 [137]130
280 :
290 [153]"LOAD(null)OAD RIGHT$NDEX ASCILE:                        "
300 [141]2790:[139]F1[167][142]
310 [159]15,8,15,"I0"
320 [159]2,8,2,"0:."[170]F$[170]",S,R"
330 [141]2870:[139]F[167][142]
340 [132]2,NC
350 [129]I[178]1[164]NC
360 [132]2,AF$(I)
370 [130]
380 [160]2:[160]15:[141]2750:[142]
390 :
400 [153]"LOAD(null)AVE RIGHT$NDEX ASCILE:                        "
410 [139] NC[178]0 [167] [141] 12200:[142]
420 [141]2790:[139]F1[167][142]
430 [159]15,8,15,"I0"
440 [152]15,"S0:."[170]F$
450 [159]2,8,2,"0:."[170]F$[170]",S,W"
460 [141]2870:[139]F[167][142]
470 [152]2,NC
480 [129]I[178]1[164]NC
490 [152]2,AF$(I)
500 [130]
510 [160]2:[160]15:[141]2750:[142]
520 :
530 NC[178]NC[170]1
540 [153]"LOADATNDD RIGHT$NDEX LENATEGORY:                     "
550 [153]"      RIGHT$NDEX #: "NC
560 [153]"LENATEGORY (null)AME: <_> ";
570 MX[178]20:[141] 12500
579 AF$(NC)[178]TE$
580 [139] TE$[178]"_" [176] TE$[178]"" [167] NC[178]NC[171]1:[142]
590 [153]:[153]"      LENORRECT: <(null)>";
600 [161]K$:[139]K$[179][177]"Y"[175]K$[179][177]"N" [175] K$[179][177][199](13) [167]600
610 [139]K$[178]"N"[167]540
620 [142]
630 :
640 [153]"LOADLENHANGE RIGHT$NDEX (null)AME:                      "
650 [139]NC[178]0 [167] [141] 12200:[142]
660 [153]"      RIGHT$NDEX #: <_> ";
670 MX[178]3:[141]12500
685 [139] TE$[178]"_" [176] TE$[178]"" [167] [142]
690 K[178][197](TE$):[139]K[179]1[176]K[177]NC[167]640
700 [153]:[153]" (null)LD LENATEGORY: "AF$(K)
710 [153]" (null)EW LENATEGORY: ";
720 MX[178]20:[141] 12500
730 [153]:[153]"      LENORRECT: <(null)>";
740 [161] K$:[139] K$[178]"" [167] 740
750 [139]K$[178]"N"[167]640
755 [139] K$[179][177]"Y" [175] K$[179][177][199](13) [167]740
760 AF$(K)[178]TE$:[142]
770 :
780 [153]"LOADSTR$ISPLAY RIGHT$NDEX (null)AMES:                    "
790 [139] NC[178]0 [167] [141] 12200:[142]
800 J[178]0
810 [129]I[178]1[164]NC
820 I$[178][202]([196](I),2):[139]I[179]10[167]I$[178]"0"[170]I$
830 [153][163]5)I$;
840 [153][163]10)AF$(I)
850 J[178]J[170]1:[139]J[178]15[167][141]2750:[153]"LOAD":J[178]0
860 [130]:[141]2750:[142]
870 :
880 [153]"LOAD(null)RINT RIGHT$NDEX (null)AMES:                      "
890 [139] NC[178]0 [167] [141] 12200:[142]
900 [141]3480
910 [151] 780,4:[143] CHANNEL #
912 [151] 782,7:[143] SECONDARY ADDRESS
914 [158] 828: [143] OPEN FILE
916 [139] [194](783) [175] 1 [167] [160] 4:[141] 12300:[137] 880
918 [157] 4
920 [129]I[178]1[164]NC
930 I$[178][202]([196](I),2):[139]I[179]10[167]I$[178]"0"[170]I$
940 [153][166]5)I$;"  ";AF$(I)
950 [130]
960 [152]4:[160]4:[142]
970 :
980 [139]NC[178]0 [167] [141] 12200:[137] 130
985 [153]"LOAD(null)AIN (null)ENU:                              "
990 [153][163]10)"[1] (null)OAD ASCILE
1000 PRINTTAB(10)"[2] [211]AVE [198]ILE
1010 [153][163]10)"[3] ATNDD (null)ECORD
1020 PRINTTAB(10)"[4] [195]HANGE [210]ECORD
1030 [153][163]10)"[5] STR$ELETE (null)ECORD
1040 PRINTTAB(10)"[6] [196]ISPLAY [198]ILE
1050 [153][163]10)"[7] (null)RINT ASCILE
1060 PRINTTAB(10)"[8] # [210]ECORDS
1070 [153][163]10)"[9] STR$ISK STR$IRECTORY
1080 PRINTTAB(9)"[10] [199]O TO [201]NDEX [205]ENU
1090 [153][163]9)"[11] CHR$O TO (null)P(null)IME"
1100 [153]"LENHOICE: ";
1110 MX[178]2:[141] 12500
1120 K[178][197](TE$):[139]K[179]1 [176] K[177]11[167] 985
1130 [139]K[178]11[167][158] (8[172]4096)[170]4
1140 [139]K[178]10[167] [142]
1150 [145]K[141]1180,1290,1420,1670,1800,1960,2230,2480,2550
1160 [137]980
1170 :
1180 [153]"LOAD(null)OAD ASCILE:                              "
1190 [141]2790:[139]F1[167][142]
1200 [159]15,8,15,"I0"
1210 [159]2,8,2,"0:"[170]F$[170]".TF,S,R"
1220 [141]2870:[139]F[167][142]
1230 [132]2,N
1240 [129]I[178]1[164]N:[129]J[178]1[164]NA
1250 [132]2,A$(J,I)
1260 [130]:[130]
1270 [160]2:[160]15:[141]2750:[142]
1280 :
1290 [153]"LOAD(null)AVE ASCILE:                              "
1300 [139] N[178]0 [167] [141] 12200:[142]
1310 [141]2790:[139]F1[167][142]
1320 [159]15,8,15,"I0"
1330 [152]15,"S0:"[170]F$[170]".TF"
1340 [159]2,8,2,"0:"[170]F$[170]".TF,S,W"
1350 [141]2870:[139]F[167][142]
1360 [152]2,N
1370 [129]I[178]1[164]N:[129]J[178]1[164]NA
1380 [152]2,A$(J,I)
1390 [130]:[130]
1400 [160]2:[160]15:[141]2750:[142]
1410 :
1420 N[178]N[170]1:TP[178]N
1430 P$[178]"LOADATNDD (null)ECORD:                             ":[153]P$
1440 [153]"STR$ISPLAY RIGHT$NDEX LENODES: <_> ";
1450 MX[178]1:[141] 12500
1460 [139] TE$[178]"Y"[167][141]780
1470 [139] TE$[178]"_" [176] TE$[178]"" [167] N[178]N[171]1:[142]
1480 [153]P$
1490 [153]:[153]AR$(1);:MX[178]20:[141] 12500:A$(1,TP)[178]TE$
1495 M$[178]A$(1,TP):LM[178][195](M$)
1500 M$[178]A$(1,TP):LM[178][195](M$)
1510 [153]:[153]AR$(2);:MX[178]20:[141] 12500:A$(2,TP)[178]TE$
1520 [153]:[153]AR$(3);:MX[178]20:[141] 12500:A$(3,TP)[178]TE$
1530 [153]:[153]AR$(4);:MX[178]20:[141] 12500:A$(4,TP)[178]TE$
1550 [153]:[153]AR$(5);:MX[178]20:[141] 12500:A$(5,TP)[178]TE$
1560 [153]:[153]AR$(6);:MX[178]20:[141] 12500
1570 I[178][197](TE$):[139]I[179]1[176]I[177]NC[167][153]"ON                              ONON":[137]1560
1580 I$[178][202]([196](I),2):[139]I[179]10[167]I$[178]"0"[170]I$
1590 A$(6,TP)[178]I$:[153]AF$(I)
1600 [153]:[153]" LENORRECT: <(null)>"
1605 [161] TE$:[139] TE$[179][177]"Y" [175] TE$[179][177]"N" [175] TE$[179][177][199](13) [175] TE$[179][177]"_" [167] 1605
1610 [139] TE$[179][177]"Y" [175] TE$[179][177][199](13)[167][153]:[137]1440
1615 [139]F3[167][142]
1620 [153]:[153]"    (null)ORE: <(null)> ";
1625 [161] TE$:[139] TE$[179][177]"Y" [175] TE$[179][177]"N" [175] TE$[179][177][199](13) [175] TE$[179][177]"_" [167] 1625
1640 [139] TE$[178]"Y" [176] TE$[178][199](13) [167]1420
1650 [142]
1660 :
1670 [153]"LOADLENHANGE (null)ECORD:                          "
1680 [139] N[178]0 [167] [141] 12200:[142]
1690 [153]"LENHANGE (null)ECORD #: <_> ";
1700 MX[178]3:[141] 12500
1710 [139] TE$[178]"_" [176] TE$[178]"" [167] [142]
1720 R[178][197](TE$):[139]R[179]1[176]R[177]N[167] 1670
1730 [153]:I[178]R:[141]3050
1740 [153]:[153]"RIGHT$S (null)HIS THE (null)ECORD: <(null)> ";
1750 [161] TE$:[139] TE$[179][177]"Y" [175] TE$[179][177]"N" [175] TE$[179][177][199](13) [175] TE$[179][177]"_" [167] 1750
1760 [139] TE$[179][177]"Y" [175] TE$[179][177]"" [167]1670
1770 [153]:TP[178]R:F3[178]1:[141]1440:F3[178]0
1771 [139] TE$[178]"_" [176] TE$[178]"" [167]N[178]N[170]1:[153]:[153]"(null)O LENHANGE (null)ADE":[141]2750:[142]
1780 [153]:[153]"(null)ECORD LENHANGED":[141]2750:[142]
1790 :
1800 [153]"LOADSTR$ELETE (null)ECORD:                          "
1810 [139] N[178]0 [167] [141] 12200:[142]
1820 [153]"STR$ELETE (null)ECORD #: <_> ";
1830 MX[178]3:[141] 12500
1840 [139] TE$[178]"_" [176] TE$[178]"" [167][142]
1850 R[178][197](TE$):[139]R[179]1[176]R[177]N[167][153]:[137]1810
1860 [153]:I[178]R:[141]3050
1870 [153]:[153]"RIGHT$S (null)HIS THE (null)ECORD: <(null)> ";
1880 MX[178]1:[141] 12500
1890 [139] TE$[179][177]"Y" [175] TE$[179][177]"" [167]1800
1900 [129]I[178]R[164]N:[129]J[178]1[164]NA
1910 A$(J,I)[178]A$(J,I[170]1)
1920 [130]:[130]:N[178]N[171]1
1930 [153]:[153]"(null)ECORD STR$ELETED!"
1940 [141]2750:[142]
1950 :
1960 P$[178]"LOADSTR$ISPLAY ASCILE:                 _ TO EXIT ":[153]P$
1970 [139] N[178]0 [167] [141] 12200:[142]
1980 [141]2960:[139]F1[167][142]
1990 [139]C[178]2[167]2120
2000 :
2010 [153]:[153]"(null)TARTING (null)ITH (null)ECORD #: ";
2020 MX[178]3:[141] 12500
2030 [139] TE$[178]"_" [176] TE$[178]"" [167][142]
2040 R[178][197](TE$):[139]R[179]1[176]R[177]N[167]2010
2050 [153]P$
2060 I[178]R
2070 [141]3050:[141]2750
2080 [139] TE$[178]"_" [176] TE$[178]"" [167][142]
2090 I[178]I[170]1:[139]I[179][178]N[167]2070
2100 [142]
2110 :
2120 [141]3130
2130 [153]"LOADSTR$ISPLAY PEEKY:                             "
2140 [153]""[163]12)S$(1)" "S$(2):[153]
2150 I[178]1
2160 [139][200](A$(R(1),I),L(1))[179][177]S$(1)[167]2200
2170 [139]F2[178]1[175][200](A$(R(2),I),L(2))[179][177]S$(2)[167]2200
2180 [141]3050:[141]2750:[153][163]15)"SEARCHING"
2190 [139] TE$[178]"_" [176] TE$[178]"" [167][142]
2200 I[178]I[170]1:[139]I[179][178]N[167]2160
2210 [153]:[153][163]14)"VALND OF ASCILE":[141]2750:[142]
2220 :
2230 P$[178]"LOAD(null)RINT ASCILE:                             ":[153]P$
2240 [139] N[178]0 [167] [141] 12200
2250 [141]2960:[139]F1[167][142]
2260 [139]C[178]2[167]2360
2270 :
2280 [153]:[153]"(null)TARTING (null)ITH (null)ECORD #: ";
2290 MX[178]3:[141] 12500
2300 R[178][197](TE$):[139]R[179]1[176]R[177]N[167]2010
2310 [153]P$:[141]3480
2312 [151] 780,4:[143] CHANNEL #
2314 [151] 782,7:[143] SECONDARY ADDRESS
2316 [158] 828: [143] OPEN FILE
2318 [139] [194](783) [175] 1 [167] [160] 4:[141] 12300:[142]
2319 [157] 4:[141] 3380
2320 [129]I[178]R[164]N
2330 [141]3300
2340 [130]:[152]4:[160]4:[142]
2350 :
2360 [141]3130
2370 [153]"LOAD(null)RINT PEEKY:                            "
2380 [153]""[163]12)S$(1)" "S$(2):[153]
2390 [141]3480
2400 [151] 780,4:[143] CHANNEL #
2402 [151] 782,7:[143] SECONDARY ADDRESS
2404 [158] 828: [143] OPEN FILE
2406 [139] [194](783) [175] 1 [167] [160] 4:[141] 12300:[142]
2408 [157] 4:[141] 3380
2410 [129]I[178]1[164]N
2420 [139][200](A$(R(1),I),L(1))[179][177]S$(1)[167]2450
2430 [139]F2[178]1[175][200](A$(R(2),I),L(2))[179][177]S$(2)[167]2450
2440 [141]3300
2450 [130]:[152]4:[160]4
2460 [142]
2470 :
2480 [153]"LOAD# (null)ECORDS:                              "
2490 [153]"(null)ECORDS (null)SED:";N
2500 [153]"(null)ECORDS (null)EFT:";400[171]N
2510 FM[178][194](51)[170]256[172][194](52)[171][194](49)[171]256[172][194](50)
2520 [153]" ASCREE (null)EMORY:";FM
2530 [141]2750:[142]
2540 :
2550 [153]"LOAD(null)IEW STR$IRECTORY:                         "
2560 [158]49152
2570 [139] ([194](783) [175] 1)[179][177]1 [167] 2590
2580 [153]"LOAD               STR$ISK VALRROR!"
2590 [141]2750:[142]
2740 :
2750 [153]"PRINT       (null)RESS ATNNY (null)EY (null)O LENONTINUE"
2755 [153]"            OR ASC8PRINT FOR (null)P(null)IME"
2760 [161]K$:[139]K$[178]""[167]2760
2765 [139][198](K$)[178]140 [167] [158] (8[172]4096)[170]4
2770 [142]
2780 :
2790 F1[178]0:[153]"   ASCILENAME: <_> ";
2800 MX[178]16:[141] 12500
2810 [139] TE$[178]"_" [176] TE$[178]"" [167] F1[178]1:[142]
2820 [153]:[153]"    LENORRECT: <(null)> ";
2830 [161] TE$:[139] TE$[178]"" [167] 2830
2840 [139] TE$[179][177]"Y" [175] TE$[179][177]"N" [175] TE$[179][177][199](13) [167] 2830
2845 [139] TE$[178]"N" [167] 2790
2850 F$[178][200](F$,14):[142]
2860 :
2870 F[178]0:[132]15,E,E$,E1,E2
2880 [153]:[153]"STR$ISK (null)TATUS:";E;E$;E1;E2:[153]
2890 [139]E[167][160]2:[160]15:F[178]1:[141]2750:[142]
2900 [142]
2910 :
2920 [129]J[178]1[164]15
2930 [151]781,J:[158]59903
2940 [130]:[153]"":[142]
2950 :
2960 [153]P$:F1[178]0
2970 [153][163]10)"[1] ATNLL
2980 PRINTTAB(10)"[2] [208]ART
2990 [153]:[153]"LENHOICE: <_> ";
3000 [161] A$:[139] A$[179][177]"1" [175] A$[179][177]"2" [175] A$[179][177][199](13) [175] A$[179][177]"_" [167] 3000
3010 [139] A$[178]"_" [176] A$[178]"" [167]F1[178]1:[142]
3020 C[178][197](A$):[153] A$
3030 [142]
3040 :
3050 [141]2920
3060 [153]"(null)ECORD #: "I
3070 [129]J[178]1[164]NA
3080 [153]AR$(J);A$(J,I)
3090 [130]
3100 L[178][195](AR$(6)[170]A$(6,I)):[153]"ON"[163]L[170]1);AF$([197](A$(6,I)))
3110 [142]
3120 :
3130 X[178]1
3140 [153]"LOAD":[129]I[178]1[164]NA
3150 [153]AR$(I);I:[130]
3160 [153]:[153]"(null)ORT PEEKY ASCIELD #: ";
3170 MX[178]3:[141] 12500
3180 R[178][197](TE$):[139]R[179]1[176]R[177]NA[167][153]"LOAD":[137] 3140
3190 [153]:[153]:[139]R[178]6[167][141]800
3200 [153] AR$(R);
3210 MX[178]20:[141] 12500:S$(X)[178]TE$:S[178][197](S$(X))
3220 [139]R[178]6[175]S[179]1[176]S[177]NC[167][153]:[137]3200
3230 [139]R[178]6[175]S[179]10[167]S$(X)[178]"0"[170][202]([196](S),2)
3240 L(X)[178][195](S$(X)):R(X)[178]R:[139]X[178]2[167][142]
3250 [153]:[153]"(null)ORT BY 2ND ASCIELD: <(null)> ";
3260 [161] A$:[139] A$[179][177]"Y" [175] A$[179][177]"N" [175] A$[179][177][199](13) [167] 3260
3270 [139] A$[178]"N"[167]F2[178]0:S$(2)[178]"":[142]
3280 X[178]2:F2[178]1:[137]3140
3290 :
3300 [153][200](A$(1,I)[170]SP$,12);[166]1);
3310 [153][200](A$(2,I)[170]SP$,19);[166]1);
3320 [153][200](A$(3,I)[170]SP$,14);[166]1);
3330 [153][200](A$(4,I)[170]SP$,6);[166]1);
3340 [153][201](SP$[170]A$(5,I),5);[166]2);
3350 V[178][197](A$(6,I)):[153][200](AF$(V),15)
3360 [142]
3370 :
3380 [129]I[178]1[164]79:[153]"=";:[130]:[153]
3390 [153]"(null)AGAZINE";[166]5);
3400 [153]"ATNRTICLE";[166]13);
3410 [153]"ATNUTHOR";[166]9);
3420 [153]"RIGHT$SSUE";[166]3);
3430 [153]"(null)AGE";[166]2);
3440 [153]"RIGHT$NDEX"
3450 [129]I[178]1[164]79:[153]"=";:[130]:[153]
3460 [142]
3470 :
3480 [153]:[153]"(null)RINTER (null)EADY: <(null)> ";
3490 MX[178]1:[141] 12500
3500 [139] TE$[179][177]"Y" [175] TE$[179][177]""[167]3480
3510 [142]
3520 :
5010 [131]  032,204,255,032,108,192,176,093,169,002,162,008,160,000,032,186,255
5020 [131]  169,002,162,102,160,192,032,189,255,032,192,255,162,002,032,198,255
5030 [131]  032,207,255,032,207,255,032,207,255,032,207,255,165,144,201,064,240
5040 [131]  040,032,207,255,141,106,192,032,207,255,141,107,192,173,107,192,174
5050 [131]  106,192,032,205,189,032,207,255,208,008,169,013,032,210,255,076,040
5060 [131]  192,032,210,255,076,073,192,169,002,032,195,255,032,204,255,024,096
5070 [131]  036,048,073,048,220,000,169,015,162,008,168,032,186,255,169,002,162
5080 [131]  104,160,192,032,189,255,032,192,255,162,015,032,198,255,160,255,200
5090 [131]  032,165,255,153,170,192,032,183,255,041,064,240,242,169,015,032,195
5100 [131]  255,032,204,255,024,173,170,192,013,171,192,041,015,240,001,056,096
5110 [131]  048
9999 :
10000 [159]15,8,15,"I0"
10010 [159]2,8,2,"TEXT/INDEXER,S,R"
10020 P[178]0:[153]"LOAD";
10030 [141]10900:[139]EN[179][177]0[167] [141]10100:[142]
10040 [141]10500:[143] INSTR. PAGE HEADER
10050 [158]49362:[143] READ SEQ FILE
10060 [141]10900:[139]EN[179][177]0[167][141]10100:[142]
10062 [161]KK$:[139]KK$[179][177]""[167]10062
10063 [161]KK$:[139]KK$[178]""[167]10063
10064 [139]KK$[178]"M"[167] [153]"":[137] 10090
10070 [139]KK$[179][177][199](13)[167]10062
10080 [139]([194](2) [175] 64)[178]0 [167] 10030
10090 [160]2:[160]15:[153]"";:[142]
10099 :
10100 [160]2:[160]15
10110 [153]""[166]13)"FORSTR$ISK RIGHT$/(null) VALRROR"
10115 [153][166]7)"OPEN(null)RESS (null)PACEBAR TO LENONTINUE"
10120 [161]KK$:[139]KK$[179][177][199](32)[167]10120
10499 [142]
10500 P[178]P[170]1
10510 [153]""[166]26)"OPEN (null)AGE";P;"CMD OF 8 "
10520 [129]X[178]1[164]22:[153]"                                       ":[130]
10530 [153][166]12)"(null)RESS SYS(null)OPEN FOR (null)ENU"
10540 [153][166]5)"(null)RESS SYS(null)VAL(null)(null)(null)(null)OPEN FOR THE (null)EXT (null)AGE"
10560 [142]
10900 [132]15,EN,EM$,ET,ES:[142]
11000 [131]162,001,160,000,024,032,240,255,162,002,032,198,255,032,165,255
11010 [131]166,144,134,002,201,042,240,009,032
11020 [131]210,255,165,002,041,064,240,236,032,204,255,096
12000 [151]53281,0:[151]53280,15: [153][199](14)[199](8)"LOAD"
12005 [153][166]10)"TOTOTOTOTOTOTOTO"
12010 [153][166]9)"* (null)P(null)IME WAITRND"
12015 [129]P[178]1[164]13:[153][166]5)"                             ":[130]
12020 [153]""[166]11)"(null)AGAZINE RIGHT$NDEXER"
12025 [153][166]15)"(C) 1987"
12026 [153][166]12)"PEEKARBARA (null)CHULAK"
12028 [153][166]14)"(null)UBLISHED BY":[153][166]7)"(null)OFTDISK (null)UBLISHING, RIGHT$NC."
12030 [153]""[166]34)"SGN"
12035 [129]S[178]1[164]11:[153][166]34)"FNSGN":[130]S
12040 [153][166]6)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR SGN"
12045 [153][166]7)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR "
12050 [142]
12100 [158] (8[172]4096)[170]4
12200 [153]"(null)O INDEX IN (null)EMORY"
12210 [141] 2750:[142]
12300 [153]"  STR$EVICE (null)OT (null)RESENT!WAIT"
12310 [141] 2750:[142]
12400 [159] 15,8,15,"I0"
12410 [159] 2,8,2,"0:"[170]LD$[170]",P,R"
12420 [132]15,ER,EM$,ET,ES
12425 [160] 2:[160]15
12430 [139] ER[178]0 [167] [147]"0:"[170]LD$,8,1
12440 [153]"LOAD  STR$ISK VALRROR:"ER", "EM$
12450 [153]"       (null)WAITUIT TO (null)P(null)IME  OR  ATNWAITGAIN"
12455 [161] TE$:[139] TE$[178]"" [167] 12455
12460 [139] TE$[178]"Q" [167] [158] (8[172]4096)[170]4
12470 [139] TE$[178]"A" [167] 12400
12480 [137] 12455
12500 TE$[178]"":[153]"TO";
12510 [161] IN$:[139] IN$[178]"" [167] 12510
12515 [139]IN$[178]"/"[167]12610
12520 [139] IN$[178][199](13) [167] [153]"CMD ":[142]
12530 [139] IN$[179][177][199](20) [167] 12580
12540 [139] [195](TE$)[178]0 [167] 12510
12550 TE$[178][200](TE$,[195](TE$)[171]1)
12560 [153]"CMD CMDCMD CMDTO";
12570 [137] 12510
12580 [139] [195](TE$)[178]MX [167] 12510
12585 [139] IN$[178]" " [167] 12610
12587 [139] IN$[178]"_" [167] 12610
12590 [139] IN$[179]"#" [176] [198](IN$)[177]218 [167] 12510
12600 [139] IN$[177]"Z" [175] IN$[179]"ATN" [167] 12510
12610 [153]"CMD CMD"IN$"TO";:TE$[178]TE$[170]IN$
12620 [137] 12510